library(lubridate)
library(tidyverse)
library(ggplot2)
library(ggrepel)
library(stringi)
library(xtable)
library(readxl)
library(janitor)
library(rlist)

#########
## Preliminaries

rm(list = ls())
'%ni%' <- Negate('%in%')
size2use_annotate <- 2.25

#########
## Elections covered and dates

elections2use_all <- c("2012-GE", "2014-GE", "2016-GE", "2018-GE")

election_date_2012_general <- as.Date("11/06/2012", format = "%m/%d/%Y")
election_date_2014_general <- as.Date("11/04/2014", format = "%m/%d/%Y")
election_date_2016_general <- as.Date("11/08/2016", format = "%m/%d/%Y")
election_date_2018_general <- as.Date("11/06/2018", format = "%m/%d/%Y")

election_dates <- list("2012-GE" = election_date_2012_general,
                       "2014-GE" = election_date_2014_general,
                       "2016-GE" = election_date_2016_general,
                       "2018-GE" = election_date_2018_general)

